home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / pctchnqs / 1992 / number2 / badintr.pas next >
Pascal/Delphi Source File  |  1992-01-09  |  310b  |  15 lines
  1.   function IsWindows3 : Boolean;
  2.   var
  3.     Regs : Registers;
  4.   begin
  5.     Regs.AX := $1600;
  6.     Intr($2F, Regs);
  7.     if (Regs.AL <= 1) or (Regs.AL >= $80) then begin
  8.       Regs.AX := $4680;
  9.       Intr($2F, Regs);
  10.       IsWindows3 := Regs.AX = 0;
  11.     end
  12.     else
  13.       IsWindows3 := True;
  14.   end;
  15.